FM Towns: Free Software Collection 9/FM Towns Free Software Collection 9.iso/fb386/game/tenis/pad.bas

BASIC Source File | 1994-11-16 | 3KB | 46 lines

100 CLS:WAIT 100:PRINT"十字キー審査":BEEP
110 FOR I=1 TO 8:PD(I)=I:NEXT
120 D=1:TM=110'
130 PA=PAD(1)
140 IF PA=PD(D) THEN D=D+1:T=0
150 IF T>TM THEN T=0:D=0:M=M+1 ELSE T=T+1
160 KT=KT+1
170 IF D=9 THEN KS=KS+1:GOTO 190
180 GOTO 130
190 GT=GT+KT:MS=MS+M:LOCATE 0,0:PRINT"ミスした回数"MS
200 LOCATE 0,1:PRINT"回転成功数"KS
210 LOCATE 0,KS+1:PRINT KS"回目にかかった時間"KT"ミス回数"M
220 PRINT "ただいまの全体時間"GT
230 KT=0:D=0:M=0
240 IF KS<>10 THEN 130
250 PRINT "テスト終了"
260 PRINT "結果"
270 GT=CINT(GT/10):PRINT "平均時間"GT
280 MS=CINT(GT/10):PRINT "平均ミス回数"MS
290 TEN=(GT+MS)/100:TEN=100-TEN
291 IF TEN>100 THEN TEN=100
300 PRINT "パッド得点"CINT(TEN)"点"
310 IF PTRIG(1) THEN END ELSE 310
320 'これは，おまけで付けたサンプル・プログラムです。
330 'ただ，パッドの性能を試すもので，試験項目は一つだけです。
340 '
350 '試験の仕方
360 '
370 'パッドをパッドポードへ接続し，実行します。１秒間の準備の後，すぐにＢＥＥＰ音が鳴って試験が始まります。
380 '
390 '試験内容
400 '
410 'パッドを左回りに回転させ（いわいるスト○のスクリューパイルドライバーね），正しくチェックされれば１つカウントされ，１０カウントすると総合データを表示します。
420 'なお，ナナメの入力もしなければならないし，かなり素早く行わないとカウントされません。早すぎてこまるという方は，ミスカウントタイムを多くしてみてください。
430 '
440 'なお，１度カウントされたものは，ミスカウントされても初期化されません｡
450 '
460 'これにより，最後にでる平均値をメモなどし，色々なパッドで試してみると，以外とパッドそのものの老朽化が発見されるかもしれません。・・・というのも，家庭用ゲーム機などのパッド（ＴＯＷＮＳのパッドもそうですが）は，判定する部分
470 '
480 'にゴムのようなものを使っており，どうしても長期に使うとその部分が破損したり擦りたりして反応がにぶくなってきます。そのため，その部分のゴムなども市販されています。しかし，ＴＯＷＮＳのパッドの替えゴムは知る限りではなかったよ
490 'うな気がします。これにより，どうも最近アクションゲームが下手になったなぁと，思う前に，一度このプログラムで試してみてください（それにはもう一個比較用のパッドがいりますが・・・）。もしかしたら，あなたの腕ではなく，パッドそ
500 'のものの「腕」が落ちているのかもしれませんよ・・・（単に下手なのかもしれませんが）
510 '　このプログラムを作る目的は，新しいＴＯＷＮＳパッドに期待して買ったら，なんとなく反応が，前に比べて軽い印象を受け，不安になったためです。そこで，古いパッドと比較してみた結果，その不安は消えました。まず，古いパッドでは丸
520 'キー（十字キーじゃないよな・・・笑）が重く，回転させると指が非常に疲れるのに対し，新パッドは，軽いため，疲れにくく感じました。これは，数回試しても同じ感じでした。次に差がでましたが回転カウント成功率はまだ新パッドに慣れて
530 'いない私の腕にもかかわらず，上回りました。古いパッドはなかなか回転がカウントしてくれず（ナナメが弱いみたい），イライラしました。これでは，スト○タイプのゲームはできません。